home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1988 August / 1988-08.d64 / ram expander 64 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  1KB  |  49 lines
  1. 10 rem copyright 1988 compute! publications, inc. - all rights reserved
  2. 15 poke 53281,6 :poke 646,14:poke 53280,14
  3. 20 print"[147]   copyright 1988 compute! pub., inc."
  4. 30 printtab(11)"all rights reserved"
  5. 40 print"start address ? 49152[157][157][157][157][157][157][157]";:inputx$:a=val(x$)
  6. 50 fori=atoa+208:readx:ck=ck+x:pokei,x:next
  7. 60 ifck<>23132thenprint"error in data statements.":stop
  8. 70 b=a+11:x=int(b/256):y=b-x*256
  9. 80 pokea+1,y:pokea+3,x
  10. 90 b=a+184:x=int(b/256):y=b-x*256
  11. 100 pokea+45,y:pokea+46,x
  12. 110 pokea+63,y:pokea+64,x
  13. 120 sysa:end
  14. 130 data 169,11,160,192,141,8
  15. 140 data 3,140,9,3,96,32
  16. 150 data 115,0,201,33,240,6
  17. 160 data 32,121,0,76,231,167
  18. 170 data 32,115,0,165,122,133
  19. 180 data 250,165,123,133,251,160
  20. 190 data 0,162,0,32,121,0
  21. 200 data 133,2,185,184,192,240
  22. 210 data 38,197,2,208,9,32
  23. 220 data 115,0,133,2,200,24
  24. 230 data 144,238,185,184,192,240
  25. 240 data 3,200,208,248,200,165
  26. 250 data 250,133,122,165,251,133
  27. 260 data 123,232,224,4,144,211
  28. 270 data 76,8,175,134,2,32
  29. 280 data 138,173,32,247,183,140
  30. 290 data 7,223,141,8,223,32
  31. 300 data 253,174,32,138,173,32
  32. 310 data 247,183,140,2,223,141
  33. 320 data 3,223,32,253,174,32
  34. 330 data 138,173,32,247,183,140
  35. 340 data 4,223,141,5,223,32
  36. 350 data 253,174,32,138,173,32
  37. 360 data 247,183,140,6,223,165
  38. 370 data 1,41,254,133,1,165
  39. 380 data 2,24,105,144,141,1
  40. 390 data 223,165,1,9,1,133
  41. 400 data 1,165,2,201,3,208
  42. 410 data 12,173,0,223,41,32
  43. 420 data 240,5,162,28,108,0
  44. 430 data 3,76,174,167,83,84
  45. 440 data 65,83,72,0,70,69
  46. 450 data 84,67,72,0,83,87
  47. 460 data 65,80,0,67,79,77
  48. 470 data 80,65,82,69,0
  49.